home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / Soap / Calculator / ITECCalc.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2001-03-03  |  941 b   |  49 lines
  1. unit ITECCalc;
  2.  
  3. interface
  4.  
  5. uses
  6.   ComObj, ActiveX, ITEC_TLB, StdVcl;
  7.  
  8. type
  9.   TCalc = class(TAutoObject, ICalc)
  10.   protected
  11.     function Add(A,B: Double): Double; safecall;
  12.     function Divide(A, B: Double): Double; safecall;
  13.     function Multiply(A, B: Double): Double; safecall;
  14.     function Subtract(A, B: Double): Double; safecall;
  15.     { Protected declarations }
  16.   end;
  17.  
  18. implementation
  19.  
  20. uses ComServ;
  21.  
  22. function TCalc.Add(A,B: Double): Double;
  23. begin
  24.     Add := A + B;
  25. end;
  26.  
  27. function TCalc.Divide(A, B: Double): Double;
  28. begin
  29.     if (A <> 0) AND (B <> 0) then
  30.       Divide := A / B
  31.     else
  32.       Divide := 0;
  33. end;
  34.  
  35. function TCalc.Multiply(A, B: Double): Double;
  36. begin
  37.     Multiply := A * B;
  38. end;
  39.  
  40. function TCalc.Subtract(A, B: Double): Double;
  41. begin
  42.     Subtract:= A - B;
  43. end;
  44.  
  45. initialization
  46.   TAutoObjectFactory.Create(ComServer, TCalc, Class_Calc,
  47.     ciMultiInstance, tmApartment);
  48. end.
  49.